perm filename DIFF.MS[NEW,LCS] blob sn#510960 filedate 1980-05-12 generic text, type T, neo UTF8
  1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS]	5-12-80 21:51	pages 1,1

**** File 1) MS.F4[NEW,LCS]/1P/1L
1)	COMMENT ⊗   VALID 00004 PAGES
1)	C REC  PAGE   DESCRIPTION
1)	C00001 00001
1)	C00002 00002	C  ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
1)	C00031 00003
1)	C00049 00004	1860	J2=R2
1)	C00066 ENDMK
1)	C⊗;
1)	C  ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
**** File 2) MS.OLD[NEW,LCS]/1P/1L
2)	C  ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
***************


**** File 1) MS.F4[NEW,LCS]/2P/259L
1)	C****320	REREAD 2430,J,R2,RJQ
1)	C  ↑↑↑ 1/78
1)	320	CALL READX
1)		J=JA
1)	C  FIRST CATCHES BLANKS, NUMBERS, ETC.
**** File 2) MS.OLD[NEW,LCS]/1P/259L
2)	320	REREAD 2430,J,R2,RJQ
2)	C  ↑↑↑ 1/78
2)	C  FIRST CATCHES BLANKS, NUMBERS, ETC.
***************


**** File 1) MS.F4[NEW,LCS]/2P/325L
1)	CRR***	REREAD 2430,JA,JA,JA,R2,RJQ
1)		J=4
**** File 2) MS.OLD[NEW,LCS]/1P/323L
2)		REREAD 2430,JA,JA,JA,R2,RJQ
2)		J=4
***************


**** File 1) MS.F4[NEW,LCS]/2P/409L
1)	CRR***500	REREAD 2430,JA,JA,JA,R2,RJQ
1)	500	R5=RD
1)		GO TO 890
**** File 2) MS.OLD[NEW,LCS]/1P/407L
2)	500	REREAD 2430,JA,JA,JA,R2,RJQ
2)		R5=RD
2)		GO TO 890
***************


  1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS]	5-12-80 21:51	pages 2,1

**** File 1) MS.F4[NEW,LCS]/2P/430L
1)	CRR***560	FORMAT(A2,21F)
1)	CC      IF(X22.NE.0)GO TO 59
1)	560	IF(I3.EQ.LCC)GO TO 830
1)	C STC=STACCATO
**** File 2) MS.OLD[NEW,LCS]/1P/428L
2)	560	FORMAT(A2,21F)
2)	CC      IF(X22.NE.0)GO TO 59
2)		IF(I3.EQ.LCC)GO TO 830
2)	C STC=STACCATO
***************


**** File 1) MS.F4[NEW,LCS]/2P/436L
1)	CRR***580	REREAD 560,K,R2,RJQ
1)	580	JA=55
1)		IF(I2.NE.LCC)GO TO 590
**** File 2) MS.OLD[NEW,LCS]/1P/434L
2)	580	REREAD 560,K,R2,RJQ
2)		JA=55
2)		IF(I2.NE.LCC)GO TO 590
***************


**** File 1) MS.F4[NEW,LCS]/2P/540L
1)	CRR***	RSET4=R3
1)		RSET4=R2
1)	C SPn SETS "SETUP" STAFF NUMBER
**** File 2) MS.OLD[NEW,LCS]/1P/538L
2)		RSET4=R3
2)	C SPn SETS "SETUP" STAFF NUMBER
***************


**** File 1) MS.F4[NEW,LCS]/2P/555L
1)	CRR***790	REREAD 560,JA,R2,RJQ
1)	790	CONTINUE
1)	800	IF(X22.NE.0)GO TO 130
**** File 2) MS.OLD[NEW,LCS]/1P/552L
2)	790	REREAD 560,JA,R2,RJQ
2)	800	IF(X22.NE.0)GO TO 130
***************


**** File 1) MS.F4[NEW,LCS]/2P/565L
1)	CRR***820	REREAD 2430,J,J,J,R2,RJQ
1)	820	GO TO 800
1)	830	RD=7
  1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS]	5-12-80 21:51	pages 2,1

**** File 2) MS.OLD[NEW,LCS]/1P/561L
2)	820	REREAD 2430,J,J,J,R2,RJQ
2)		GO TO 800
2)	830	RD=7
***************


**** File 1) MS.F4[NEW,LCS]/2P/583L
1)	CRR***860	REREAD 560,JA,R2,RJQ
1)	860	R5=26
1)		J=9
**** File 2) MS.OLD[NEW,LCS]/1P/579L
2)	860	REREAD 560,JA,R2,RJQ
2)		R5=26
2)		J=9
***************


**** File 1) MS.F4[NEW,LCS]/2P/599L
1)	CRR***880	REREAD 560,JA,R2,RJQ
1)	880	R5=RD
1)	890	J=3
**** File 2) MS.OLD[NEW,LCS]/1P/595L
2)	880	REREAD 560,JA,R2,RJQ
2)		R5=RD
2)	890	J=3
***************


**** File 1) MS.F4[NEW,LCS]/2P/623L
1)	CRR***	J3=R3
1)	CRR***	J4=R4
1)		J3=R2
1)		J4=R3
1)	C 'TL' SET LOCATION OF TYPE OUT ON SCREEN
**** File 2) MS.OLD[NEW,LCS]/1P/619L
2)		J3=R3
2)		J4=R4
2)	C 'TL' SET LOCATION OF TYPE OUT ON SCREEN
***************


**** File 1) MS.F4[NEW,LCS]/2P/630L
1)	CRR***	IF(R3.NE.0)GO TO 930
1)	CRR***	IF(R4.NE.0)GO TO 930
1)		IF(R2.NE.0)GO TO 930
1)		IF(R3.NE.0)GO TO 930
1)		J4=0
  1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS]	5-12-80 21:51	pages 2,1

**** File 2) MS.OLD[NEW,LCS]/1P/624L
2)		IF(R3.NE.0)GO TO 930
2)		IF(R4.NE.0)GO TO 930
2)		J4=0
***************


**** File 1) MS.F4[NEW,LCS]/2P/640L
1)	C ????'T' = TEST INPUT
1)		J2=R2
**** File 2) MS.OLD[NEW,LCS]/1P/632L
2)	C 'T' = TEST INPUT
2)		J2=R2
***************


**** File 1) MS.F4[NEW,LCS]/2P/651L
1)	C  ?????  CHECK THIS  TYPE 'IN STF# MODE' ETC.  -- SAME AS 140 STF#.
1)	960	SCORE=0
**** File 2) MS.OLD[NEW,LCS]/1P/643L
2)	C  TYPE 'IN STF# MODE' ETC.  -- SAME AS 140 STF#.
2)	960	SCORE=0
***************


**** File 1) MS.F4[NEW,LCS]/3P/27L
1)	CRR***	REREAD 560,R3,R3
1)	C FOR SOME REASON ONLY 'ZD' NEEDS THIS REREAD?!?!?!?  FORMAT(A2,21F)
1)		R3=R2
1)	CRR*** ABOVE REPLACES REREAD
1)		IF(R3.EQ.0)R3=RZZZ
**** File 2) MS.OLD[NEW,LCS]/2P/27L
2)		REREAD 560,R3,R3
2)	C FOR SOME REASON ONLY 'ZD' NEEDS THIS REREAD?!?!?!?  FORMAT(A2,21F)
2)		IF(R3.EQ.0)R3=RZZZ
***************


**** File 1) MS.F4[NEW,LCS]/3P/129L
1)	CRR***	REREAD 560,JA,R2,RJQ
1)		R6=RA
**** File 2) MS.OLD[NEW,LCS]/2P/127L
2)		REREAD 560,JA,R2,RJQ
2)		R6=RA
***************


**** File 1) MS.F4[NEW,LCS]/4P/406L
  1) MS.F4[NEW,LCS] and 2) MS.OLD[NEW,LCS]	5-12-80 21:51	pages 4,3

1)	CRR***2430	FORMAT(I,24F)
1)	2430	END
**** File 2) MS.OLD[NEW,LCS]/3P/406L
2)	2430	FORMAT(I,24F)
2)		END
***************